This is the revision history for my purpose in <freenode.net:#perlbot>

factoid_idsubjectcopulapredicateauthornamespace
13345 my purpose is `compose `eval use Digest::MD5 qw/md5_hex/; $n=`quote d `arg &n!!; $h=substr(md5_hex(fc $n, int(time()/86400)), -1, 1); "<echo <fact _purpose_".($n eq"simcop2387"&&"owner"||$h)."><eval #<fact _purpose_last is `arg &n!>>>"!!
You're not allowed to ask me that.
simcop2387 <*:##NULL>
13328 my purpose is `eval use Digest::MD5 qw/md5_hex/; $n=`quote d `arg &n!!; $h=substr(md5_hex(fc $n, int(time()/86400)), -1, 1); "<echo <fact _purpose_".($n eq"simcop2387"&&"owner"||$h)."><eval #<fact _purpose_last is `arg &n!>>>"!
Not Available
simcop2387 <*:##NULL>
13317 my purpose is `eval use Digest::MD5 qw/md5_hex/; $n=`quote d `arg &n!!; $h=substr(md5_hex(fc $n), -1, 1); "<echo <fact _purpose_".($n eq"simcop2387"&&"owner"||$h)."><eval #<fact _purpose_last is `arg &n!>>>"!
Not Available
simcop2387 <*:##NULL>
13315 my purpose is `compose `eval use Digest::MD5 qw/md5_hex/; $n=`quote d `arg &n!!; $h=substr(md5_hex(fc $n), -1, 1); "<fact _purpose_".($n eq"simcop2387"&&"owner"||$h)." <eval #<fact _purpose_last is `arg &n!>>>"!!
Not Available
simcop2387 <*:##NULL>
13313 my purpose is `eval use Digest::MD5 qw/md5_hex/; $n=`quote d `arg &n!!; $h=substr(md5_hex(fc $n), -1, 1); "<fact _purpose_".($n eq"simcop2387"&&"owner"||$h)." <eval "arg"#<fact _purpose_last is `arg &n!>>>"!
Not Available
simcop2387 <*:##NULL>
13312 my purpose is `eval use Digest::MD5 qw/md5_hex/; $n=`quote d `arg &n!!; $h=substr(md5_hex(fc $n), -1, 1); "<fact _purpose_".($n eq"simcop2387"&&"owner"||$h)." <eval #<fact _purpose_last is `arg &n!>>>"!
Not Available
simcop2387 <*:##NULL>
13310 my purpose is `compose `eval use Digest::MD5 qw/md5_hex/; $n=`quote d `arg &n!!; $h=substr(md5_hex(fc $n), -1, 1); "<fact _purpose_".($n eq"simcop2387"&&"owner"||$h)." <eval #<fact _purpose_last is `arg &n!>>>"!!
Not Available
simcop2387 <*:##NULL>
13307 my purpose is `compose `eval use Digest::MD5 qw/md5_hex/; $n=`quote d `arg &n!!; $h=substr(md5_hex(fc $n), -1, 1); "<fact _purpose_".($n eq"simcop2387"&&"owner"||$h)." <fact _purpose_last is `arg &n!>>"!!
Not Available
simcop2387 <*:##NULL>
13306 my purpose is `#compose `eval use Digest::MD5 qw/md5_hex/; $n=`quote d `arg &n!!; $h=substr(md5_hex(fc $n), -1, 1); "<fact _purpose_".($n eq"simcop2387"&&"owner"||$h)." <fact _purpose_last is `arg &n!>>"!~!
Not Available
simcop2387 <*:##NULL>
13305 my purpose is #compose `eval use Digest::MD5 qw/md5_hex/; $n=`quote d `arg &n!!; $h=substr(md5_hex(fc $n), -1, 1); "<fact _purpose_".($n eq"simcop2387"&&"owner"||$h)." <fact _purpose_last is `arg &n!>>"!~
Not Available
simcop2387 <*:##NULL>
13304 my purpose is #compose `eval use Digest::MD5 qw/md5_hex/; $n=`quote d `arg &n!!; $h=substr(md5_hex(fc $n), -1, 1); "compose <fact _purpose_".($n eq"simcop2387"&&"owner"||$h)." <fact _purpose_last is `arg &n!>>"!~
Not Available
simcop2387 <*:##NULL>
13303 my purpose is #compose `eval use Digest::MD5 qw/md5_hex/; $n=`quote d `arg n!!; $h=substr(md5_hex(fc $n), -1, 1); "compose <fact _purpose_".($n eq"simcop2387"&&"owner"||$h)." <fact _purpose_last is `arg nick!>>"!~
Not Available
simcop2387 <*:##NULL>
13302 my purpose is #compose `eval use Digest::MD5 qw/md5_hex/; $n=`quote d `arg n!!; $h=substr(md5_hex(fc $n), -1, 1); "compose <fact _purpose_".($n eq"simcop2387"&&"owner"||$h)." <fact _purpose_last is `arg n!>>"!~
Not Available
simcop2387 <*:##NULL>
13301 my purpose is `eval use Digest::MD5 qw/md5_hex/; $n=`quote d `arg n!!; $h=substr(md5_hex(fc $n), -1, 1); "compose <fact _purpose_".($n eq"simcop2387"&&"owner"||$h)." <fact _purpose_last is `arg n!>>"!
Not Available
simcop2387 <*:##NULL>
13300 my purpose is `eval use Digest::MD5 qw/md5_hex/; $n=`quote d `arg n!!; $h=substr(md5_hex(fc $n), -1, 1); "fact _purpose_".($n eq"simcop2388"&&"owner"||$h)!
Not Available
simcop2387 <*:##NULL>
13299 my purpose is `eval use Digest::MD5; $n=`quote d `arg n!!; $h=substr(md5_hex(fc $n), -1, 1); "fact _purpose_".($n eq"simcop2388"&&"owner"||$h)!
Not Available
simcop2387 <*:##NULL>
13298 my purpose is `eval $n=`quote d `arg n!!; $h=substr(md5_hex(fc $n), -1, 1); "fact _purpose_".($n eq"simcop2388"&&"owner"||$h)!
Not Available
simcop2387 <*:##NULL>